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SERIES 60 (LEVEL 6) 


The Level 6 GCOS/BES2 BASIC Interpreter is a 
simple, easy-to-learn, all-purpose programming 
language. 

The BASIC Interpreter provides an interactive/ 
conversational environment in which a user can 
compose, edit, debug, and execute programs writ- 
ten in the Level 6 BASIC language. In addition, 
BES2 BASIC, with its program library and data 
file facilities, provides for program execution in a 
nonconversational, “‘production” mode of opera- 
tion, which includes loading previously prepared 
programs from a disk library file and reading and 
writing sequential data files (also stored on disk) 
during the execution of the programs. 


FEATURES 


e Complete source program maintenance 

e Data file processing language features 

e Data file interchange with Level 6 FORTRAN 
programs 

e Multiple statements per line 

e Immediate statement execution for interactive 
programming and debugging 

e Multidimensional arrays 

e Unrestricted subscript expressions 


ADVANTAGES 


e Mature, standardized language 

e Easy-to-learn, easy-to-use 

e Fast debugging 

e Useful for general problem solving and elemen- 
tary production applications 

e Smooth, simple interface with other BES2 
facilities 


MODES OF OPERATION 


The BES2 BASIC Interpreter can be used in three 
generally distinct modes of operation: 


e Interactive problem solving 
e Production program building/checkout 
e Production program execution 
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Interactive problem solving is normally a short- 
term activity in which the user composes a small, 
“one-shot” program to solve a current, often urgent 
problem. In accomplishing this, the interactive, 
conversational facilities of BES2 BASIC are heavily 
used: composing, editing, and storing program 
statement lines in memory, trial execution of 
sequences of these lines, and immediate execution 
of individual statements for experimental and de- 
bugging purposes. 


Production program building/checkout is a longer- 
term activity involving the development of a larger, 
permanent program to be executed usually at regu- 
lar intervals in the future. In this mode of opera- 
tion, a disk library is used for external storage and 
retrieval of the source program being built, and 
sample data files can be created to test the proper 
execution of the program logic. The facilities 
described for interactive problem solving are, of 
course, also available in this mode. 


Production program execution requires only mini- 
mal user/operator involvement and interaction. 
After loading the BES2 BASIC Interpreter and 
requesting the desired program from the disk/ 
diskette library file (via the OLD command), the 
operator begins execution by typing “RUN.” 
During execution, a program performs reads from 
and writes to data files on disk/diskette volumes, 
or accepts data input from the operator console 
device. 


PROGRAM EDITING FACILITIES 


The BES2 BASIC Interpreter contains a full range 
of elementary editing functions to create and 
change a stored source program. To add or insert 
a new line into an already existing stored program, 
the user types the appropriate new line number 
followed by one or more BASIC statements sepa- 
rated by backslashes (\). To replace an existing 
line, the user types its line number, followed by 
the new statement(s). To delete an existing line, 
the user types its line number, followed by a car- 
riage return. To correct errors while typing a line, 
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the user types the standard BES2 line deletion and 
character de :t:on characters. 


BASIC PROGRAMMING EXAMPLES 


The following four examples utilize different 
techniques to solve for one of the two roots of 
the equation: 


X? +2X —4=0 
The root is: 
= [R2_ 
Ror =.= 


where A= 1, B=2,C =-4 


The BES2 BASIC Interpreter supplied the under- 
scored responses: 


1. Use of READ and DATA Statements for 
Variables 


2 NEW 


READY 
? 10 READ A,B,C 
? 20 LET X=(—B+(B A 2—4*A*C) A 0.5)/2*A) 
230 DATA 1,2,-4 

2.40 PRINT “ROOT IS’’,X 

?50 END 
2 RUN 
ROOT IS 


1.23607 


50 EXIT 
READY 


2. Use of Data Constants 
2? NEW 


READY 

2:10 LET X=(—2+(2 A 2—4*1*(—4)) 0 .5)/(2*1) 
2.20 PRINT “ROOT IS’,X 

230 END 

? RUN 


ROOT IS 1.23607 


30 EXIT 
READY 


3. Use of INPUT Statement 
? NEW 


READY 

2.10 INPUT A,B,C 

2.20 LET X=(—B+(B A 2—4*A*C) A 5)/(2*A) 
2.40 PRINT “ROOT IS”,X 

?.50 END 

? RUN 

? 1,2,-4 


ROOT IS 1.23607 


50 EXIT 
READY 


4. Use of Arithmetic Calculator Loop 
2? NEW 


READY 
? 10 INPUT I\\PRINT I\\GO TO 10 
? RUN 
2 (-2+(2 A 2—-4*1#(—4)) A 5)/(2*1) 
1.23607 
? 
LANGUAGE SUMMARY 


A BES2 BASIC program consists of a set of state- 
ments, normally terminated by an END statement. 
Each line (containing one or more statements) in a 
stored program in memory must be numbered. 
Unnumbered statements are executed immediately. 
Table 1 lists the major constituents of the BES2 
BASIC language. The angular and square brackets 
in the table represent variables and optional 
elements, respectively. 


LET and GOTO are the assignment and control 
transfer statements, respectively. GOSUB is a sub- 
routine call, and the RETURN statement defines 
the return point from the subroutine which was 
called. IF ... THEN allows a single relational 
operator between expressions, and control passes 
to the statement number following the THEN if 
the relation is true. NEXT is used to terminate the 
range of the FOR statement and must use exactly 
the same variable as in the FOR statement. If the 
third expression in a FOR statement is omitted, it 
is assumed to be 1. The expression in the ON 
statement is evaluated and truncated to an integer. 
For expression =1, control is transferred to the first 
statement number in the list; for expression =2, 
control is transferred to the second statement num- 
ber in the list, etc. 


READ assigns to the listed variables the values 
obtained from a DATA statement. The latter is 
used to specify all the values needed for the vari- 
ables. For output, the user can specify variable 
names or literals; the literals are enclosed within 
quotation marks. Thus, if X is 625, the statement 


PRINT ““THE SQUARE ROOT OF” X, 
“TS” SQR (X) 


causes the following to be printed: 
THE SQUARE ROOT OF 625 IS 25. 


For normal printing purposes, the output line is 
divided into five zones of 13 spaces each. The user 
can change the width of these zones, however, 
through the use of commas and semicolons. A 
PRINT statement without anything following 
signals a new line. 


The program terminates with the END statement; 
STOP returns BASIC to the command mode. 


DIM is used to specify numeric variable subscripts 
whose values are not equal to 10, and to specify 
the size of string variables when the default size is 
not desired. DATA specifies numeric and string 
values to be accessed by READ statements. 


RESTORE returns the current pointer to the first 
value of the first DATA statement in the program. 
An INPUT statement types a question mark and 
the program waits for the user to type in the data 
items requested in the INPUT list. 


Functions are defined by the DEF statement; the 
function name consists of the letters FN followed 
by a single letter. Any expression which fits on one 
line can be used to define a function. The expres- 
sion may even include other functions. 


RANDOMIZE gets a new “seed” from the real- 
time clock for use by the RND random number 
function. OPTION STRINGSIZE specifies a default 
size for all character strings, when the default 
desired is not the standard 18. 


REM statements are nonexecutable and are used 


tions the data pointer to the first item in the data 
file and opens it for input. IF END# specifies the 
processing pach to be taken when an end-of-file 
conditio1. 1s reached on the input data file. 


Statements, control commands, built-in functions, 
and diagnostics are summiarized in Tables 1—4. 
These and other language and programming con- 
siderations are described in detail in the BES2 
BASIC Reference Manual, Order No. AU44. 


SYSTEM REQUIREMENTS 
Minimum equipment required: 


e Level 6 central processor with 16K words of 
memory 

e Dual diskette unit 

e KSR teleprinter or compatible console 


to enter comments and explanations in the pro- 


gram listing. Optional equipment: 
e 16K additional words of memory 
e Additional dual diskette unit 


e Cartridge disk units 


FILES specifies all data files which are to be proc- 
essed in the program, and implicitly assigns a 
numeric designator to each, for use in the other 
data file statements. 


SCRATCH# logically clears the specified data file, 
and opens it for output. WRITE# puts the speci- 
fied data values out onto the data file. READ# 
brings in input items from the data file and assigns 
them to the variables listed. RESTORE# reposi- 


Related software: 


e Runs under the BES2 operating environment, 
with 16K words of memory 


Specifications may change as design improvements are introduced. 


Table 1. BASIC Language Summary 


INPUT <numeric/string variable> [,<numeric/string variable>] ... 
PRINT <numeric/string expression> , <numeric/string constant>... 
DIM <variable> (<integer> [,<integer>] ...}... 

DEF FN<letter> (<unsubscripted variable>) = <expression> 
RANDOMIZE 

OPTION STRINGSIZE <integer> 

REM <any string of characters> 


(LET] <variable> [<variable>] ... = <expression> 


THE 


N : 
GoTo \ <line number> 


IF <expression> <relation> <expression> : 


GOTO <line number> 

GOSUB <line number> 

RETURN 

FOR <unsubscripted variable> = <expression> TO <expression> STEP <expression> 
NEXT <unsubscripted variable> FILES <file name> [;<file name>) ... 

ON <expression> GOTO <line number> , <line number>... SCRATCH# <integer expression> 

STOP WRITE# <integer expression> , <numeric/string expression> , <numeric/string constant>... 
END READ# <integer expression> , <<numeric/string variable> [,<numeric/string variable>}] ... 


DATA <numeric/string constant> , <expression>... RESTORE# <integer expression> 


READ <numeric/string variable> [,<numeric/string variable>] ... 


seo . THEN ? 
IF END# <integer expression> Vea <line number> 


| RESTORE 


Table 2. Control Commands 


LIST <line number> Lists current program beginning at line 


number specified. 


Loads named program from disk library 
into current program area in memory, 
and clears data area. 

Clears current program and data area in 
memory, and sets current program name 
as specified. 


OLD <program name> 
LIST <line number> , <line number> Lists current program beginning at first 
line number specified and ending with 
last line number specified. 


NEW [<program name>] 
SAVE [<program name>] Writes current program on disk library, 
using program name specified. 
Replaces named program on the disk 
library with current program. 


NAME [<program name>] Changes current program name as 
specified. 


Clears data area only in memory. 


RESAVE [<program name>] 
CLEAR 

RUN [<tine number>] Exits from BASIC Interpreter environ- 
ment, returning contro! to BES2 Command 


Processor. 


Starts execution of current program, QUIT 
beginning at lowest-numbered line or at 
line number specified. 


Lists entire current program on 
teletypewriter. 


Function 


Reference 


SIN(X) 


COS(X) 


TAN(X} 


ATN(X) 


EXP(X) 


LOG(X) 


ABS(X) 


Table 3. Built-in BASIC Functions 


Mathematical equivalent 


sin (x) 
The trigonometric sine of the argument x. 


cos {x} 

The trigonometric cosine of the argument x. 
tan (x) 

The tangent of the argument x. 

tan"! (x) 

The arctangent of the argument x. 

ex 

The exponential function. 


lOge (x) 


The logarithm to the base e of the argument x. 


x 
The absolute value or magnitude of the 
argument x. 


NOTE: The argument x is expressed in radians. 


Function 
Reference 


INT(X) 


SGN(X) 


SOR(X) 


Mathematical equivalent 


The largest integer less than or equa! to the 
argument x. 

INT (+1.5) = 1 

INT (—1.5) = —2 

The sign of the argument x. 

X<0, SGN(X) = ~1 

X=0, SGN(x) = 0 

X>0, SGN(X) = 1 

JX, where x 20 

The positive square root of the argument x, 
where the argument must be greater than or 
equal to zero. 

A random number with a value between 0 
and 1. 


Table 4. Diagnostic Error Codes 


No data files attached but FILES statement found 
Array subscript out of bounds 

Unexpected character (c) found 

Close data output file problem 


Attempt to READ more data than available (in 
DATA statement or data file) 

Data file numeric designator error: not integer, not 
in range, or not defined 

Statement terminator error 

Two decimal points in number 

Dummy variable in DEF statement subscripted 
Division by zero 

Invalid delimiter in FOR statement 


Data file input problem: output file only or hard- 
ware problem 


Characters FN misplaced in DEF statement 


Data file output problem: cannot open or hardware 
problem 


GOSUBs nested more than eight deep 
Incorrect condition in IF statement 

IHegal statement or variable name 

IHegal index variable in FOR statement 
Negative logarithmic function argument 
Library input file not attached or not present 
Library output file not attached or not present 


Mixed assignment: string assigned to or compared 
with numeric variable 


Memory overflow 

Missing or misplaced comma 

Missing or misplaced equals sign 

Missing or misplaced right parenthesis 

Missing or misplaced left parenthesis 

Numerical overflow 

Numerical underflow 

NEXT statement has no matching FOR 

Nonpositive expression in ON statement, or missing GOTO 


OPTION STRINGSIZE format error 
{Illegal item delimiter in PRINT statement 


READ= format error: missing comma after file 
number 


RETURN statement found outside of subroutine 
SCRATCH# format error 

String length specified over 60 characters 
Statement number error (range 1 to 9999} 
String overflow 

Negative square root function argument 

THEN or GOTO left out of IF statement 


Missing or misplaced quotation marks 
Undefined function 


Unitary minus error 
Undefined statement number 
Undefined variable 

WRITE format error 
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